home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir43
/
qsrc_dsk.zip
/
MODEL
/
WIDGET.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1992-01-15
|
29KB
|
576 lines
TALKz
RESOURCEz
RESOURCE
HELPz
FULLPATHz
EXCLUSIVEz
PATHz
PATHz
SET PATH TO &newpath
W_USER
Widghelp
\<System
ALT+S
\<Edit
ALT+E
\<Tables
ALT+T
ALT+T
\<Records
ALT+R
Resu\<lts
ALT+L
ALT+L
\<Utilities
ALT+U
ALT+U
\<Windows
ALT+W
\<About FoxPro...
\<Help...
\<Macros...
\<Filer
\<Calculator
Calendar/\<Diary
\<Special Characters
ASC\<II Chart
Ca\<pture
Pu\<zzle
\<Quit
WAIT WINDOW "Help System not yet available -- see WIDGET2.APP"
DO _q2a0pqpum IN LOCFILE("WIDGET" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET?")
\<Undo
CTRL+U
\<Redo
CTRL+R
Cu\<t
CTRL+X
\<Copy
CTRL+C
\<Paste
CTRL+V
Clear
Select \<All
CTRL+A
Goto \<Line...
\<Find...
CTRL+F
Find A\<gain
CTRL+G
R\<eplace And Find Again
CTRL+E
Replace All
Prefere\<nces...
\<Budget Entries
\<Products
Budget \<Categories
\<Departments
C\<ustomers
DO budget.spr
DO _q2a0pqqdq IN LOCFILE("WIDGET" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET?")
DO budcat.spr
DO dept.spr
\<Goto...
\<Locate...
\<Continue
CTRL+K
\<Seek...
\<Order...
\<Pack
Reinde\<x
DO getorder.spr
\<Browse
Close \<Table
A\<verage...
C\<ount...
Su\<m...
Calculat\<e...
\<Report on Budget
DO _q2a0pqqv3 IN LOCFILE("WIDGET" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET?")
\<Print...
\<Printer Setup...
\<Hide
\<Hide All
Sh\<ow All
Clea\<r
\<Move
CTRL+F7
\<Size
CTRL+F8
\<Zoom
CTRL+F10
Z\<oom
CTRL+F9
\<Cycle
CTRL+F1
Command
CTRL+F2
\<Debug
\<Trace
WAIT WINDOW "Data Entry not yet available for this Table."
RESOURCE
DOLDRESOURCHELP
OLDHELP
OLDFULL
OLDTALK
OLDEXCL
ISNEWPATH
IDW_USER
RCWIDGHELP
_Q2A0PQPEHRESULTS
:\_Q2A0PQPGBTABLES
PEHRECORDS
UTILITIES
NEWWIND
SUPPORTFF
SET FULLPATH &oldfull
SET EXCLUSIVE &oldexcl
COMMAND
DSCREEN
URCOLDRESOURCRESOURCE
COLDHELP
NEWPATH
ISOLDTALK
IDOLDFULL
RCOLDEXCL
BAILOUT
EHDBFNAME
:\WIN_NAME
BFILT_EXPR
SRCHTERM
SKIPVAR
Courtesy of FoxApp...
product.app
PRODUCT
big_itemf
ask.spr
Smallest entry to mark:
99999
Model
BIG_ITEM
URCSPR
ESOURCMODEL
C_Q2A0PQPUM
_Q2A0PQQDQ
_Q2A0PQQV3
TALKz
COMPATIBLEz
budcat
"budcatcode"
budcat.dbf
Where is budcat?
"budcatcode"
budget
budget.dbf
Where is budget?
product
"prodcode"
product.dbf
Where is product?
"prodcode"
"deptcode"
dept.dbf
Where is dept?
"deptcode"
Budget Table
SYSMENUz
Pick Category
DEACTIVATE POPUP
PERIOD
DEPTCODE
BUDCATCODE
deptarrayF
deptarray
Pick Budget Entry
budget
Edit this Record
Period:
Budgeted Amount:
Budget Category:
Notes:
Order Table By:
@! AAAN
@ 1,30 GET m.product PICTURE "@&N" POPUP _q291f300r SIZE 5,23 DEFAULT " " VALID _q291f30uv() COLOR SCHEME 9
@*C \<Finalize Entry?
@*VN \!\<Cancel Edit ; \<Save Changes
@*RVN No Order ;Period ;Dept;Category
@*IVN
@*IVN
Dept Totals For Pd
Product Totals For Year
budget
budcat
budget
product
SET SYSMENU &old_sys
CURRAREA
aTALKSTAT
COMPSTAT
XBUDCAT
BBUDGET
PRODUCT
RDEPT
BUDCATCODEPRODCODE
DEPTCODE
OLD_SYS
DEPTARRAY
DEPTNAME
ORDER
BUDCATNAMEPRODNAME
EBROW
2 BUDGENTRY
DO_SHOW
_Q291F300RPERIOD
_Q291F30DWBUDGETAMT
VALBUDCAT
_Q291F30MX_Q291F312FNOTES
FINAL
_Q291F31BASAVEIT
_Q291F31JE_Q291F31U2QUERY1
s =_Q291F323QQUERY2
T S_Q291F32CC_Q291F32M6_Q291F32MA[
PERIOD
aBUDGETAMT
BUDCATCODEPRODUCT
BDEPT
FINAL
RNOTES
PERIOD
aBUDGETAMT
BUDCATCODEPRODUCT
BDEPT
CAN_FINAL
budcat
BUDCATCODEBUDCAT
ODEBUDGET
ODEBUDCATNAME
mFF$m
Entry in past or present Periods must be Final.
MRETURN
DEFINAL
ODENO_EDIT
DEPERIOD
PRODCODE
EDEPTCODE
EBUDCATCODEPERIOD
MEFINAL
THE_DATE
TO_FINAL
ECAN_FINAL
VALBUDCAT
CAN_FINAL
PRODUCT
PRODCODE
CAN_FINAL
DEPTARRAY
DEPTCODE
CAN_FINAL
Finalized Budget Entries are not editable.
FINAL
NO_EDIT
Fill out all information before Saving, or Cancel Edit
Editing Cancelled
MRETURN
SAVEIT
DEPTCODE
BUDCATCODEPERIOD
AMEPRODCODE
period
deptcode
budcatcode
ORDER
PERIOD
DEPTCODE
BUDCATCODEPICK
budget1.qpr
BUDGET1
BUDGET
budget2.qpr
BUDGET2
BUDGET
mFF$m
Entry in past or present Periods must be Final.
deptarrayF
deptarray
BUDGET
Dept Totals For Pd
Product Totals For Year
CURRWIND
BUDGET
FINAL
PERIOD
ODEPD
AMEBUDCATNAMEBUDCATCODEBUDCAT
ODEDEPT
DEPTCODE
PRODUCT
PRODCODE
PRODNAME
NO_EDIT
CAN_EDIT
ENO_EDIT
CAN_EDIT
VALBUDCAT
TO_FINAL
CAN_FINAL
DO_SHOW
_Q291F30DW
_Q291F30MX
_Q291F30UV
_Q291F312F
_Q291F31BA
_Q291F31JE
_Q291F31U2
_Q291F323Q
_Q291F32CC
_Q291F32M6
_Q291F32MA
TALKz
COMPATIBLEz
dept.dbf
Where is dept?
controls
Controls
Department Table
controls
@*VN \<Top;\<Prior;\<Next;\<Bottom;\<Edit;\<Add;\?\<Quit
Deptcode
@! AAA9
Deptname
@*HN \?\! Cancel ; Save
controls
CURRAREA
TALKSTAT
COMPSTAT
CONTROLS
ADDMODE
EDITMODE
_Q1G0NJT7RDEPTCODE
CHKCODE
ERRCODE
DEPTNAME
SAVEIT
_Q1G0NJTY6_Q1G0NJTNI_Q1G0NJTNO_Q1G0NJTNU
EDITMODE
ADDMODE
SAVEIT
ADDMODE
EDITMODE
CONTROLS
ADDMODE
EDITMODE
CURRWIND
ADDMODE
EDITMODE
_Q1G0NJT7R
_Q1G0NJTY6
_Q1G0NJTNI
_Q1G0NJTNO
_Q1G0NJTNU
TALKz
COMPATIBLEz
_q1g0njy0d
tagnumf
_q1g0njy0d
@*VT \!OK;\?Cancel
Index order:
_q1g0njy0d
CURRAREA
TALKSTAT
COMPSTAT
_Q1G0NJY0DTAGNUM
STARTORD
NUMTAG
IDXTAGS
ORDBUT
0D_Q1G0NJYWX
_Q1G0NJYWX
TALKz
COMPATIBLEz
_q1g0nk1w6
_q1g0nk1w6
_q1g0nk1w6
QUESTION
VALUE
VALID
ASK.NOVALID
SPCURRAREA
TALKSTAT
COMPSTAT
_Q1G0NK1W6DUMMY
_Q1G0NK4S5
m.valuef
m.valuef
m.valuef
m.valuef
m.valuef
CENTURYz
m.valuef
@3,getcol GET m.value SIZE &msize
@3,getcol GET m.value PICTURE (temp) SIZE &msize
MSIZE
GETCOL
SK.VALID
SPVALUE
NOVALID
_Q1G0NK4S5
OBJTYPE
OBJCODE
HEIGHT
WIDTH
STYLE
PICTURE
ORDER
UNIQUE
COMMENT
ENVIRON
BOXCHAR
FILLCHAR
FLOAT
STRETCH
NOREPEAT
RESETRPT
PAGEBREAK
RESETPAGE
SWAPHEADER
SWAPFOOTER
EJECTBEFOR
EJECTAFTER
PLAIN
SUMMARY
ADDALIAS
OFFSET
TOPMARGIN
BOTMARGIN
TOTALTYPE
RESETTOTAL
1 0 66 80 T F FFFFT 0 0 0 21 2 1 16 T 17 18 9 1 3 9 4 4 9 7 1 8 0 19 4 59 1 18 C FTF 0 0 0 8 0 20 4 0 1 4 C FFF 0 0 0 8 0 21 4 9 1 5 C FFF 0 0 0 5 0 22 1 32 1 6 F 5 0 23 2 0 1 8 F 8 0 24 4 21 1 4 C FFF 0 0 0 8 0 25 4 54 1 1 26 L FFF 0 0 0 5 0 27 1 58 1 5 F 5 0 28 1 0 1 6 F 5 0 29 1 9 1 7 F 5 0 30 1 52 1 5 F 5 0 31 1 44 1 6 F 8 0 32 7 12 1 60 35 C FFF 0 0 0 8 0 36 4 31 1 10 D FFF 0 0 0 5 0 37 1 18 1 11 F 7 4 3 58 3 21
T 8 0 38 4 43 1 9 N FFF 0 0 0 7 4 2 0 1 80
F 8 0 41 0 0 1 1 C FFF 0 0 0 8 0 42 0 0 1 15 C FFF 0 0 0 8 0 44 6 59 1 20 C TFF 0 0 0 18 46 47 T 48 0 0
BUDGET.DBF
BUDGET
PRODCODE
budget.notes
budget.deptcode
budget.prodcode
"Period"
"Deptcode"
budget.budcatcode
budget.final
"Notes"
"Dept #"
"Product"
"Final"
"Budget"
YCDOW(DATE())+", "+CMONTH(DATE())+" "+ALLTRIM(STR(DAY(DATE())))+", "+STR(YEAR(DATE()),4,0)
budget.period
"Budget Code"
RIIF(budget.budgetamt > big_item, "* "+STR(budget.budgetamt,7,0), budget.budgetamt)
waitpage()
"Page "+ALLTRIM(STR(_PAGENO))
.IIF(EMPTY(Budget.notes),"Make notes here.","")
BIG_ITEM
big_item
(IIF(TYPE("big_item")="N", big_item, 500)
BUDGET
query1
DEPTNAME
BUDGET
PERIOD
ODEBUDGETAMT
DEPTCODE
EQUERY1
BUDGET
PRODUCT
query2
PRODUCT
PRODNAME
BUDGET
PERIOD
BUDGETAMT
PRODCODE
QUERY2
THE_CODE
MCODE
MRETURN
MORDER
ADDMODE
field cannot be empty.
already in use in
field.
m.pausef
PAUSE
TALKz
COMPATIBLEz
budcat
"budcatcode"
budcat.dbf
Where is budcat?
"budcatcode"
controls
Controls
Budget Category Table
controls
@*VN \<Top;\<Prior;\<Next;\<Bottom;\<Edit;\<Add;\?\<Quit
budcat
@! AAA9
Budget category
Budget code
@*HN \?\! Cancel ; Save
budcat
controls
budcat
CURRAREA
TALKSTAT
COMPSTAT
BUDCAT
CONTROLS
ADDMODE
EDITMODE
_Q1G0NKBITBUDCATCODECHKCODE
ERRCODE
SAVEIT
_Q1G0NKC99_Q1G0NKBYK_Q1G0NKBYQ_Q1G0NKBYW
EDITMODE
ADDMODE
SAVEIT
ADDMODE
EDITMODE
CONTROLS
ADDMODE
EDITMODE
CURRWIND
ADDMODE
EDITMODE
_Q1G0NKBIT
_Q1G0NKC99
_Q1G0NKBYK
_Q1G0NKBYQ
_Q1G0NKBYW
WIDGET.MPR
F:\BOOK\QDISK\MODEL\
BUDGET.SPR
DEPT.SPR
D:\FP2\GOODIES\FOXAPP\GETORDER.SPR
ASK.SPR
BUDGET1.QPR
H:\TEMP\
BUDGET2.QPR
CHKCODE.PRG
ERRCODE.PRG
WAITPAGE.PRG
BUDCAT.SPR
WIDGET.MPX
BUDGET.SPX
DEPT.SPX
GETORDER.SPX
ASK.SPX
MODEL.FRX
MODEL.FRT
BUDGET1.QPX
BUDGET2.QPX
CHKCODE.FXP
ERRCODE.FXP
WAITPAGE.FXP
BUDCAT.SPX